@@ -1,5 +1,9 @@
Revision history for Perl module Unicode::Collate.
+0.78 Mon Jul 25 21:29:50 2011
+ - tried fixing the tarball with world writable files.
+ ( http://www.perlmonks.org/?node_id=731935 )
+
0.77 Sun Jul 3 21:15:08 2011
- xs: [perl #93470] [PATCH] consting in Collate.xs by Robin Barker.
@@ -14,7 +14,7 @@ use File::Spec;
no warnings 'utf8';
-our $VERSION = '0.77';
+our $VERSION = '0.78';
our $PACKAGE = __PACKAGE__;
### begin XS only ###
@@ -789,9 +789,9 @@ sub _eqArray($$$)
##
## (int position, int length)
-## int position = index(string, substring, position, [undoc'ed grobal])
+## int position = index(string, substring, position, [undoc'ed global])
##
-## With "grobal" (only for the list context),
+## With "global" (only for the list context),
## returns list of arrayref[position, length].
##
sub index
@@ -802,7 +802,7 @@ sub index
my $subE = $self->splitEnt(shift);
my $pos = @_ ? shift : 0;
$pos = 0 if $pos < 0;
- my $grob = shift;
+ my $glob = shift;
my $lev = $self->{level};
my $v2i = $self->{UCA_Version} >= 9 &&
@@ -810,7 +810,7 @@ sub index
if (! @$subE) {
my $temp = $pos <= 0 ? 0 : $len <= $pos ? $len : $pos;
- return $grob
+ return $glob
? map([$_, 0], $temp..$len)
: wantarray ? ($temp,0) : $temp;
}
@@ -896,7 +896,7 @@ sub index
_eqArray(\@strWt, \@subWt, $lev)) {
my $temp = $iniPos[0] + $pos;
- if ($grob) {
+ if ($glob) {
push @g_ret, [$temp, $finPos[$#subWt] - $iniPos[0]];
splice @strWt, 0, $#subWt;
splice @iniPos, 0, $#subWt;
@@ -914,7 +914,7 @@ sub index
}
}
- return $grob
+ return $glob
? @g_ret
: wantarray ? () : NOMATCHPOS;
}
@@ -14,7 +14,7 @@ use File::Spec;
no warnings 'utf8';
-our $VERSION = '0.77';
+our $VERSION = '0.78';
our $PACKAGE = __PACKAGE__;
my @Path = qw(Unicode Collate);
@@ -1055,9 +1055,9 @@ sub _eqArray($$$)
##
## (int position, int length)
-## int position = index(string, substring, position, [undoc'ed grobal])
+## int position = index(string, substring, position, [undoc'ed global])
##
-## With "grobal" (only for the list context),
+## With "global" (only for the list context),
## returns list of arrayref[position, length].
##
sub index
@@ -1068,7 +1068,7 @@ sub index
my $subE = $self->splitEnt(shift);
my $pos = @_ ? shift : 0;
$pos = 0 if $pos < 0;
- my $grob = shift;
+ my $glob = shift;
my $lev = $self->{level};
my $v2i = $self->{UCA_Version} >= 9 &&
@@ -1076,7 +1076,7 @@ sub index
if (! @$subE) {
my $temp = $pos <= 0 ? 0 : $len <= $pos ? $len : $pos;
- return $grob
+ return $glob
? map([$_, 0], $temp..$len)
: wantarray ? ($temp,0) : $temp;
}
@@ -1162,7 +1162,7 @@ sub index
_eqArray(\@strWt, \@subWt, $lev)) {
my $temp = $iniPos[0] + $pos;
- if ($grob) {
+ if ($glob) {
push @g_ret, [$temp, $finPos[$#subWt] - $iniPos[0]];
splice @strWt, 0, $#subWt;
splice @iniPos, 0, $#subWt;
@@ -1180,7 +1180,7 @@ sub index
}
}
- return $grob
+ return $glob
? @g_ret
: wantarray ? () : NOMATCHPOS;
}
@@ -1,24 +1,28 @@
----
-name: Unicode-Collate
-abstract: Unicode Collation Algorithm
-version: 0.77
-author: SADAHIRO Tomoyuki <SADAHIRO@cpan.org>
-license: perl
-distribution_type: module
-requires:
- Carp: 0
- DynaLoader: 0
- File::Spec: 0
- Test: 0
- constant: 0
- strict: 0
- warnings: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-configure_requires:
- ExtUtils::MakeMaker: 0
-dynamic_config: 0
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-generated_by: 'ExtUtils::MakeMaker version 6.57_05'
+--- #YAML:1.0
+name: Unicode-Collate
+version: 0.78
+abstract: Unicode Collation Algorithm
+author:
+ - SADAHIRO Tomoyuki <SADAHIRO@cpan.org>
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Carp: 0
+ constant: 0
+ DynaLoader: 0
+ File::Spec: 0
+ strict: 0
+ Test: 0
+ warnings: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.57_05
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
@@ -12,7 +12,10 @@ if (-f "Collate.xs") {
}
WriteMakefile(
+ 'AUTHOR' => 'SADAHIRO Tomoyuki <SADAHIRO@cpan.org>',
+ 'ABSTRACT' => 'Unicode Collation Algorithm',
'INSTALLDIRS' => $] >= 5.007002 ? 'perl' : 'site',
+ 'LICENSE' => 'perl',
'NAME' => 'Unicode::Collate',
'VERSION_FROM' => 'Collate.pm', # finds $VERSION
'clean' => $clean,
@@ -1,4 +1,4 @@
-Unicode/Collate version 0.77
+Unicode/Collate version 0.78
===============================
NAME
diff --git a/var/tmp/source/SADAHIRO/Unicode-Collate-0.77/Unicode-Collate-0.77/gendata/dumpstr b/var/tmp/source/SADAHIRO/Unicode-Collate-0.78/Unicode-Collate-0.78/gendata/dumpstr
old mode 100644
new mode 100755
diff --git a/var/tmp/source/SADAHIRO/Unicode-Collate-0.77/Unicode-Collate-0.77/gendata/gen-hu b/var/tmp/source/SADAHIRO/Unicode-Collate-0.78/Unicode-Collate-0.78/gendata/gen-hu
old mode 100644
new mode 100755
diff --git a/var/tmp/source/SADAHIRO/Unicode-Collate-0.77/Unicode-Collate-0.77/gendata/gen-ja b/var/tmp/source/SADAHIRO/Unicode-Collate-0.78/Unicode-Collate-0.78/gendata/gen-ja
old mode 100644
new mode 100755
diff --git a/var/tmp/source/SADAHIRO/Unicode-Collate-0.77/Unicode-Collate-0.77/gendata/gen-vi b/var/tmp/source/SADAHIRO/Unicode-Collate-0.78/Unicode-Collate-0.78/gendata/gen-vi
old mode 100644
new mode 100755
diff --git a/var/tmp/source/SADAHIRO/Unicode-Collate-0.77/Unicode-Collate-0.77/gendata/gen-zh b/var/tmp/source/SADAHIRO/Unicode-Collate-0.78/Unicode-Collate-0.78/gendata/gen-zh
old mode 100644
new mode 100755
diff --git a/var/tmp/source/SADAHIRO/Unicode-Collate-0.77/Unicode-Collate-0.77/mkheader b/var/tmp/source/SADAHIRO/Unicode-Collate-0.78/Unicode-Collate-0.78/mkheader
old mode 100644
new mode 100755
diff --git a/var/tmp/source/SADAHIRO/Unicode-Collate-0.77/Unicode-Collate-0.77/mklocale b/var/tmp/source/SADAHIRO/Unicode-Collate-0.78/Unicode-Collate-0.78/mklocale
old mode 100644
new mode 100755